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OOOCOSCOSSCOCOCOCSOSOCCSOCCCOCOCOCOCOOCOCSCOCOOCOOO 
DOC COODOCOO COO OCCOSSCOOCOCOODCCCOCOooOeo 


LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 LOCTR OBJECT TEXT STMT SOURCE STATEMENT COPYRIGHT IBM CORP 1976 
QOOOO2A 2137+CE EQU 42 10 2 CYCLE STEAL STATUS INERPRFUPT ERROR 000020 2255 THRY2 EQU 32 32 
00002B 2138+ISBON EQU 43 11 1 ISEB BITS ON ae 000040 2256 SIXT4Y EQU 64 64 
00002C 2139+NG EQU uy 12 8 TEST UNIT RESULTS NO GOOD 000080 2257 ONE28 EQU 128 128 
00002D 2140+IOCC EQU us 13 4 OIO CC ERROR 000100 2258 TWO56 EQOU 256 256 
OO002ZE 21414+NOTN EQU 46 14 2 NO INTEFRUPT 000400 2259 ONEK EQU 1024 1024 
00002F 21424+INCC EQU 47 15 1 INTERRUPT CC ERROR 000800 2260 TWOK EQU 2048 2048 
21434* 000c00 2261 THREK EQU 3072 3072 
2144+ COMMON BUFFER FOR PRINTING DATA 001000 2262 FOUPRK EQU 4O96 4096 
2145+4+% FFFFFF 2264 M1 EQU -1 -1 
00380A 0000 21474$TUID DC A (*-* TEST UNIT IDENTIFICATION FFFFFE 2265 M2 EQ -2 -2 
00380C 0000 21484+S$I0IN DC A (*-* T/O AND INTP CONDITION CODES FFFFFD 2266 M3 EOQU -3 -3 
OO380E 0000 21494$TSB DC A (*-* R INTR STATUS BYTF & DEV ADPFS FFFFFC 2267 M4 EQU -4 -4 
003810 0000 21504LSTIO DC A (*-* ADRS OF LAST I/0 + 4 BYTES 2269 3 OR ROR OG Ro OR i oi iO OR oko tokoic kakoioicd aio datok ak tok doko ak koko atte ic ak oe ak 
003812 0000 21514+DEV1 DC A (*-* DEVICE DEPENDENT DATA 2270 * * 
003814 0000 2152+DEV2 DC A (*-* * 2271 * THE FOLLOWING ARE EQUATES FOR BIT DISPLACEMENTS FROM THE * 
003816 0000 2153+DEV3 DC A (*-* * 2272 * PEGINNING OF THE BYTE TO EACH BIT IN THE WORD OF SWITCHES. * 
003818 0000 21544+DEV4 DC A (*-* * 2273 * * 
003812 21554+SCTID EQU DEV1 READ ID BUFFER FOR IBIS §& TERN 9274 OO OR iO oi ii iui ai ok Io io lak iotakakaioiotako ak kok kako te aca 
OO381A 21564+DCBUF EOU * DCB BUFFER FOP LAST DCB USED 000000 2275 BSO EQU 0 
00381A 0000 2t574+DCB1 DC A (*-* LAST DCB TABLE, CONTPOL WORD 000001 2276 BS1 EOU 1 
00381Cc 0000 2158+DCB2 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000002 2277 BS2 EQU 2 
00381E 0000 2159+#DCB3 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000003 2278 BS3 EOQU 3 
003820 0000 21604+DCB4 DC A (*-* LAST DCB TABLE, DEV DEP WORD 000004 2279 BS4& EQU 4 
003822 0000 2161+DCB5 DC A (*¥-* LAST DCB TABLE, DEV DEP WORD 000005 2280 BS5 EQU 5 
003824 0000 2162+DCB6 DC A (*-* LAST DCB TABLE, CHAIN ADRS 000006 2281 BS6 EQU 6 
003826 0000 2163+DCB7 DC A (*-* LAST DCB TABLE, BYTE COUNT 000007 2282 BS7 EQU 7 
003828 0000 2164+DCB8 DC A (*-* LAST DCE TABLE, BUFFEP ADDRESS 000008 2283 BS8 EQU 8 
21€54+* 000009 2284 BS9 Bey 9 
0O0382A 2166+CSBUF EQU * CYCLE STEAL DATA BUFFER OOOOOA 2285 BS10 EQU 10 
00382A 0000 21674+CSTL1 DC A (*-* CYCLE STFAL BUFFER, RESIDUAL ADRS 00000B 2286 BS11 EQU 11 
00382C 0000 21684+CSTL2 DC A (*-—* CYCLE STEAL WD 2, hEVICE DEPEND 00000C 2287 BS12 EQOU 12 
00382E 0000 21694CSTL3 DC A (*-* CYCLE STEAL WD 3, DEVICE DEPEND O00000D 2283 BS13 EQU 13 
003830 0000 21704#+CSTLY DC A (*-* CYCLE STFAL WD 4, DEVICE DEPEND OOO00E 2289 BS14 a 14 
003832 0000 21714CSTLS DC A (*-* CYCLE STEAL WD 5, DEVICE DEPEND OOO00F 2290 BS15 EQU 15 
003834 0000 21724+CSTL6 DC A (*-* CYCLE STEAL WD 6, DEVICE DEPEND 2292 COPY T7876 O1DEC76 
003836 0000 21734+CSTL7 DC A (*¥-* CYCLE STEAL WD 7, DEVICE DEPEND 2293 * 12/01/76 
003838 0000 21744+CSTLB DC A (*-* CYCLE STEAL WD 8, DEVICE DEPEND 2294 * PRFOGPAM MONITORS THE FOLLOWING INTERFACE LINES AND PASSES 
2175+4+* 2295 * THE RESULTS BACK TO BE USED BY THE MDI SUPEFVISOR. 
00383A 0000 21764+$SUBN DC A (*¥-* LAST SUBFPOUTINF ADDFPESS USED 2296 * is +PLO OUT OF SYNC 
00383C 00000000 2177+$DATA DC 2A (*-* OPTIONAL DATA 2297 * ‘ -GUARD RAND 
003840 0021 21784+$INTL DC X'0021! INTERRUPT LEVEL REQUESTED 2298 * ‘ -SELECT OUT DFPIVE 
003842 0000 2179+TURTN DC too Be TEST UNIT RETURN ADRS TO MDI 2299 * é -~SELECT IW DPIVE 
003844 0QO0B2 2180+$DVID DC X'OOB2° DEVICE ID 2300 * - -LINEAR REGION 
003846 19D0 2181+#SVCAL DC AO ee ae ADRS OF DEVICE ADDRESS 2301 * m SECTOR PULSES 
003848 0000 ee DC A (*-*) IBIS CYLINDEP ADDRESS eC . 3 INDEX PULSES 
+ : “ 
2184+* THIS TEST UNIT WILL RETURN TO MDI WITHOUT DOING ANY PROGRAM 2304 * a INPUT FROM CE FROM PREVIOUS REQUEST 
2185+4+* FUNCTION. THE RESULTS THAT WERE SET UP IN THE RESULTS APEA ARE 2305 * : + IF WRITE CLOCK 
as STILL VALID BUT A DIFFERENT TEST IS TO BE PERFORMED. ee : ps + r00 FAST 
+ - - 
OO384A 4020 380A 3C02 2188+T3CO2 MVWI xX'3C02',STUID SET UP TEST UNIT ID 2308 * 
003850 5700 2189+ BXS R7 RETURN TO MDI SUPVR 2309 * PROGRAM PASSES STATUS OF ALL LINES IN FOLLOWING FORMAT: 
2191 COPY OM Qu 2310 * STEADY STATE OF LINE IS IN 'TURESUL'! 
VERMA ESTE SL CS SSS SSOSCSSSSS SOS SSS SLO LSS SPSL SST SS SS SS SS Te ST Te Se eT eT SL SS Tete S| 2311 * = LINE OP, 0 = LINE DOWN OR LINE PULSING 
2193 * * 2312 * NOTE: NORMAL RESULTS='0460 0002 OOOO! 
2194 * EQUATED NAMES FOR SUPPORTED SVCtS * 2313 * . TURESUL BIT Q=------------ NOT USED 
2195 * * 2314 * “ TURESUL BIT 1------------ NOT USED 
2196 RIOR RO ICO RIO IOI III ROR I IO SR fa RO RIC ROR tk foie 2315 * . TURFSUL BIT 2------------ NOT USED 
0000 2197 OUT EQU 0 OUT SVC 2316 * 3 TURESUL BIT 3=-------=----- NOT USED 
0001 2198 OUTIN EQU 1 OUTIN SVC 2317 * . 
0002 2199 IDLE EQU 2 IDLE SVC 2318 * . TURESUL BIT 4------------ NOT USED 
0003 2200 ASCII EQU 3 HEX TO ASCII Svc 2319 * 3 TURESUL BIT 5----------- -GUARD BAND 
0004 2201 CHNGE EQU CHANGE LEVEL SVC 2320 * é TURESUL BIT 6------------ +PLO OUT OF SYNC 
0005 2202 PGMCK EQU 5 ALLOW FETURN ON PROGRAM CHECK SVC 2321 * y TURESUL BIT J----------- -VFL 
0006 2203 EXIT EQU 6 EXIT SVC 2322 * m 
0007 2204 TERM EQU 7 TERMINATE SVC 2323 * Fs TURESUL BIT 8-----------~- NOT USED 
0008 2205 RESET EQU 8 RESET DEVICE SVC 2324 * _ TURESUL BIT 9----------- -SELECT OUT DRIVE 
0009 2206 RID EQU 9 READ ID SVC 2325 * e TURESUL BIT 10---------- ~SELECT IN DRIVE 
OOOA 2207 START EQU 10 START CYCLE STEAL SVC 2326 * é TURFSUL BIT 11----------- + TOO FAST 
OOOB 2208 STCSS EQU 11 START CYCLE STEAL STATUS SVC 2327 * * 
000C 2209 PREP EOU 12 PREPARE DEVICE SVC 2328 * ; TOURESUL BIT 12----------- NOT USED 
O00D 2210 READU EQU 13 READ WITH FUNCTION BIT 3 OFF SVC 2329 * e TURESUL BIT 13---------- -LINEAR REGION 
OOOE 2211 READ1 EQU 14 READ WITH FUNCTION RIT 3 ON SVC 2330 * es TURESUL BIT 14---------- SECTOR PULSES 
OOOF 2212 RSTAT EOU 15 READ STATUS SVC 2331 * . TURESUL BIT 15----------- +IF WRITE CLOCK 
0010 2213 WRITO EQU 16 WRITE WITH FUNCTION BIT 3 OFF SVC 2332 * ‘ 
0011 2214 WRIT1 EQU 17 WRITE WITH FUNCTION BIT 3 ON SVC 2333 * PULSING STATUS OF LINE IS IN TURESUL#2 
0012 2215 CTRL EQU 18 CONTROL SVC 2334 * 1 = PULSING, O = NOT PULSING 
0013 2216 RICB EQU 19 RELEASE INTERUOPT CONTROL BLOCK SVC 2335 * ” TURESUL+42 BIT 16----------- NOT USED 
0014 2217 CICB EQU 20 CONNECT INTFPUPT CONTPOL BLOCK SVC 2336 * 2 TURESUL+2 BIT 17----------- NOT USED 
0015 2218 HIO EQU 21 HALT ALL I/0 2337 * " TURESUL+2 BIT 18----------- NOT USED 
0016 2219 RECSD EQU 22 REQUEST USE OF DCP DISK SVC 2338 * * TURESUL+2 BIT 19----~------- NOT USED 
0017 2220 RELSD EQU 23 RELEASE USE OF DCP DISK svc 2339 * ‘ 
0018 2221 HALT EQU 24 HALT SVC 2340 * 6 TURESUL#2 BIT 20--------~--- NOT USED 
0019 2222 ETOH £EQOU 25 EBCDIC TO HEX SVC (SaRine 2341 * TURESUL#+2 BIT 21---------- -GUARD BPAND 
OO1A 2223 HTOE EQU 26 HEX TO EBCDIC SVC (STRING 2342 * ‘ TURESUL+2 BIT 22----------- +PLO OUT OF SYNC 
001B 2224 ATOH EQOU 27 ASCII TO HEX SVC (STRING 2343 * : TURESUL#+2 BIT 23---------- -VFL 
001C 2225 HTOA EQU 28 HEX TO ASCII SVC (STRING 2344 * Z 
001D 2226 ETOA EQU 29 ERBCDIC TO ASCII SVC (STRING 2345 * < TURESUL#+2 BIT 24----------- NOT USED 
OO1E 2227 ATOE EQU 30 ASCII TO EBCDIC SVC (STRING 2346 * a TURESUL#2 BIT 25---------- -~SELECT OUT DRIVE 
001F 2228 READI EQU 31 READ DATA SETS FOR MDI/UTIL 2347 * . TURESUL#2 BIT 26---------- ~SELECT IN DRIVE 
0020 2229 WRITI EQU 32 WRITE DATA SETS FOR UTIL 2348 * «s TURESUL#2 BIT 27-e3r3r3-3------ + TOO FAST 
2231 RIOR IORI IOI III IO RO III ROIIRI III III IOI IRR I IO ICR IOI I OR I ik kak 2349 * 7 
2232 * * 2350 * Z TURESUL#+2 BIT 28----------- NOT USED 
2233 * EQUATES USED BY TU'S AS CONSTANTS * 2351 * S TURESUL#2 BIT 29---~------- -LINEAR REGION 
2234 * * 2352 * = TURESUL+2 BIT 30---------- SECTOR PULSES 
2235 OIRO ORO OR OI ORR OI tO ROR III tO ROR Rok tok ik atc ke fee ate ak 2353 * 3 TURESUL4+2 BIT 31----------- + IF WRITE CLOCK 
QOOO4E 2236 PLUS EQU C4! PLUS CHAR 2354 * « 
000060 2237 MINUS EQU Ct—'t MINUS CHAR 2355 * * 
000000 2239 ZERO EOU 0 2356 * is TURESUL#4 BIT 32----------- SPEFD IS TOO SLOW 
000001 2240 ONE EQU 1 2357 * : TORESUL#+4 BIT 33----------- NOT USED 
000002 2241 TWO EQU 2 2358 * ps TURESUL+4 BIT 34----------- NOT USED 
000003 2242 THREE EQU 3 2359 * _ TURESUL#¢& BIT 35ee2r eee --= NOT USED 
000004 2243 FOUR EQU 4 2360 * é 
000005 2244 FIVE EQU 5 2361 * : TOURESUL+4 BIT 36----------- NOT USED 
000006 2245 SIX EQU 6 2362 * ‘ TURESUL#*4 BIT 37-2273 ----- NOT USED 
000007 2246 SEVEN EQU 7 2363 * 6 TURESUL#+4 BIT 38----3------- SECT & INDEX NOT IN CORRECT SEQ 
000008 2247 EIGHT EQU B 2364 * - TORESUL#+4 BIT 39---------- NOT USED 
000009 2248 NINE EOU 9 2365 * ‘ 
QOOOOA 2249 TEN EQU 10 2366 * ~ TURESULt4 BIT 4YOQ----------- NOT USED 
00000B 2250 ELEVN EQU 11 11 2367 * : TORESUL4¢4 BIT 44---------- NOT USED 
00000C 2251 TWELV EQU 12 12 2368 * 2 TOURESUL¢4 BIT 42---------- NOT USED 
00000D 2252 THRTN EQU 13 13 2369 * - TURESUL+4 BIT 43----------- INDEX PULSE NOT PULSING 
OOOOOF 2253 FIVTN EQU 15 15 2370 * és 
000010 2254 SIXTN EQU 16 16 2371 * ¥ TURESUL#+4 BIT 4Q-------- WH NOT USED 
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ATTRIBUTES AND REFERENCES 

ADDRESS, HEX LOCATION (00002BC6) 
DRESS. HEX LOCATION (00002BDA) 
RESS. HEX LOCATION (00002BEE) 
HEX LOCATION (00002BF2) 
LOCATION (00002BFE) 
LOCATION (00002C02) 
LOCATION (00002C06) 
R HEX LOCATION (00002C1A) 
RESS. HEX LOCATION (00002C2E) 
HEX LOCATION (00002C32) 
HEX LOCATION (00002C36) 
HEX LOCATION (00002C3A) 
HEX LOCATION (00002C4R) 
LOCATION (00002C62) 
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NOT READY SENSE P/N=1635254 EC=755285 
CROSS-REFERENCE LISTING 

NAME ATTRIBUTES AND REFERENCES 

2403 2404 2405 2495 2503 2508 2514 2522 2535 
RICB ABSOLOTE. HEX VALUE (00000013) 
RSAVE aADDRESS. HEX LOCATION(00003A3A) IN CSECT(I7832 ) LENGTH(2) 
SENS1 ADDRESS. HEX LOCATION (OQQO3A7A) IN CSECT(I7832 |.) LENGTH (4) 
SEN10 ADDRESS. HEX LOCATION(00003A38) IN CSECT(I7832 ) LENGTH(2) 
SEN11 SADDRESS. wx LOCATION (00003436) IN CSECT(I7832  ) LENGTH(2) 
SUPSTAT ADDRESS. HEX LOCATION(000019C4) IN CSECT(I7832 ) LENGTH(1) 
TT73A ADDRESS, HEX LOCATION(00003A02) IN CSECT(I7832 ) LENGTH (4) 
TT 736 aiDBRESS. HEX LOCATION(00003A14) IN CSECT(I7832 ) LENGTH(2) 
TT 76 oADDRESS. HEX LOCATION (0000388E) IN CSECT(I7832 ) LENGTH(6) 
TT 76A aABBRESS. HEX LOCATION (00003892) IN CSECT(I7832  ) LENGTH(4) 
TUINPT a ADDRESS. HEX LOCATION (09001948) _IN CSECT (17832 ) LENGTH(1) 
TUNSGWTR ADDRESS. HEX LOCATION (000018BA) IN CSECT(I7832 ) LENGTH(1) 
TURESUL ADDRESS. HEX LOCATION (000018C8) IN CSECT(I7832 ) LENGTH(1) 
TURTN 2 aODRESS. HEX LOCATON (00003842) IN CSECT(I7832 ) LENGTH (2) 
TUSTATUS “ADDRESS. HEX LOCATION(00001818) IN CSECT(I7832 ) LENGTH (1) 
TUWORK a ADDRESS, HEX LOCATION (0000181A) IN CSECT(I7832  ) LENGTH(1) 
T3C02 ADDRESS. HEX LOCATION (00Q03684A) IN CSECT (17832 gy puENGTH (6) 

990 1002 1032 1044 1071 1083 1095 1107 1119 

1182 1194 1206 1230 1242 1287 1299 1311 1323 

1382 1848 1se9 41881 1993 1605 jeu tees 1680 
17312 PBBRESS. HEX LOCATION (000039F4) IN CSECT(I7832 ) LENGTH (4) 
T732 SRDORSS, HEX LOCATION (00003A30) IN CSECT(I7832 ) LENGTH(2) 
T7332 ohDDRESS. HEX LOCATION(00003A06) IN CSECT(I7832 ) LENGTH(4) 
T734 ohDDRESS. HEX LOCATION(00003A18) IN CSECT(I7832 ) LENGTH (4) 
T76B sADDRESS, HEX LOCATION(000038FA) IN CSECT(I7832 ) LENGTH(2) 
T76C aRDDRESS. | HEX LOCATION (00003906) IN CSECT(I7832 ) LENGTH(2) 
TI6E ahDDRESS. HEX LOCATION (00003914) IN CSECT(1I7832 ) LENGTH(2) 
T76G oADDRESS, HEX LOCATION (00003922) IN CSECT(I7832 ) LENGTH(2) 
T76I aRDDRESS» HEX LOCATION (00003930) IN CSECT(I7832 ) LENGTH(6) 
T76d aABDRESS. HEX LOCATION(0000397C) IN CSECT (17832) LENGTH (2) 
T76dd aABDRESS. HEX LOCATION (00003978) IN CSECT(I7832 ) LENGTH (4) 
T76K ADDRESS. HEX LOCATION (00003970) IN CSECT(I7832 ) LENGTH(2) 
T76M oADDRESS, HEX LOCATION(0000395C) IN CSECT(I7832 ) LENGTH (6) 
T760 ADDRESS. HEX LOCATION (00003944) IN CSECT(I7832 ) LENGTH (2) 
T760A pRDDRESS. HEX LOCATION (000038F8) IN CSECT(I7832 ) LENGTH (2) 
T760D oADDRESS. HEX LOCATION (00003912) IN CSECT(I7832 ) LENGTH (2) 
T760F ahDDPESS. HEX LOCATION (00003920) IN CSECT(I7832  ) LENGTH (2) 
T760H a RDDRESS. HEX LOCATION (0000392E) IN CSECT(I7832 ) LENGTH(2) 
T760K ohBDRESS. HEX LOCATION (00003982) IN CSECT(I7832 ) LENGTH (4) 
T760L oADDPESS. HEX LOCATION(0000399A) IN CSECT(I7832 ) LENGTH(4) 
T760M ARDRESS. HEX LOCATION (000039D6) IN CSECT(I7832  ) LENGTH (4) 
T760P > ADDRESS. HEX LOCATION (0000396) IN CSECT(I7832 ) LENGTH(6) 
T7600 a ADDRESS. HEX LOCATION(000039EE) IN CSECT(I7832 ) LENGTH(2) 
T760S oRDDRESS. HEX LOCATION (000039BE) IN CSECT(I7832  ) LENGTH (4) 
T760SS >BBDRESS. HEX LOCATION (000039B8) IN CSECT(1I7832 ) LENGTH (6) 
T7605 oADDRESS. HEX LOCATION (000038DC) IN CSECT(I7832 ) LENGTH (2) 
T761 ohDDRESS, HEX LOCATION (00003946) IN CSECT(I7832 ) LENGTH(6) 
T762 a ABDRESS. HEX LOCATION (0000395A) IN CSECT(I7832 ) LENGTH (2) 
T763 SRDDRESS. HEX LOCATION (00003972) IN CSECT(I7832 ) LENGTH(2) 
T764 ohDDRESS. HEX LOCATION(O00038AE) IN CSECT(I7832 ) LENGTH(4) 
T766 oRDDRESS. HEX LOCATION(000038DE) IN CSECT(I7832 ) LENGTH (2) 
T767 gNDDRESS. HEX LOCATION (000038EA) IN CSECT(17832  ) LENGTH (2) 
T769 phDDRESS. HEX LOCATION (000038EC) IN CSECT(I7832 ) LENGTH (2) 
T7876 ADDRESS. HEX LOCATION (00003852) IN CSECT(I7832  ) LENGTH(4) 
XTRNL {AESOLUTE. HEX VALUE (00000001) 
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